home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 45
/
Amiga Format CD45 (1999-09)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-11].iso
/
+system+
/
tools
/
expert
/
devguide
/
mycheck
< prev
next >
Wrap
AmigaDOS Script File
|
1999-01-25
|
1KB
|
45 lines
.key file/A
.BRA {
.KET }
FailAt 50
Echo "*NCheck: {file}"
RAM:DVC {file} info >ENV:Check1
; Abfangen wenn DVC nix gefunden hat
If "$Check1" GT ""
rx RAM:MyConvert.rexx $Check1
else
rx RAM:MyConvert.rexx {file}
Endif
If NOT WARN
RAM:Search RAM:DeviceList.dvc :$file NONUM >ENV:Check2
rx MyCheck.rexx $Checktemp1,$Check2
If NOT WARN
If "$Checkdev1" EQ "$Checkdev2"
SetEnv CheckErg=" is OK!"
else
If "$Checkdev1" GT "$Checkdev2"
SetEnv CheckErg=" NEW !!! Please contact age@thepentagon.com!"
Echo "*N----------------------------------------------------------" >>Ram:Lib-NewList
Echo "*N{file}" >>Ram:Dev-NewList
c:List "{file}" LFormat="Name: %n*NSize: %l" >>Ram:Dev-NewList
Echo "*NC:Version means:" >>Ram:Dev-NewList
Version "{file}" FULL FILE >>Ram:Dev-NewList
Echo "*NDVC means:" >>Ram:Dev-NewList
DVC "{file}" INFO >>Ram:Dev-NewList
Echo "*NYOUR COMMENT:" >>Ram:Dev-NewList
else
SetEnv CheckErg=" Newer Device is available!"
Echo "Your System: $Check1 -> DeviceGuide: $Check2" >>Ram:Dev-OldList
c:List "{file}" LFormat="%n|%l" >ENV:Lister
Echo "$Lister|$Version" >>Ram:Dev-OnlineUpdate
EndIf
EndIf
Echo "DeviceGuide: $Check2 *NYour System: $Check1 $CheckErg"
Echo "DeviceGuide: $Check2 *NYour System: $Check1 $CheckErg*N" >>Ram:Dev-List
else
Echo "{file}"
Echo "$Check1 *N{file} ??.??" >>Ram:Dev-List
EndIf
EndIf